home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / WEBSITES / FORTRAN_FRIENDS / ORTEP.ZIP / !Ortep / !RunOld < prev    next >
Encoding:
Text File  |  1996-05-19  |  1.5 KB  |  43 lines
  1. | !Run file for ORTEP        last update 17 May 1996
  2. |
  3. |  ensure the Floating point emulator and colourtrans are loaded
  4. |
  5. RMEnsure FPEmulator 0.00 RMLoad System:Modules.FPEmulator
  6. RMEnsure FPEmulator 0.00 Error You need the Floating-point Emulator
  7. RMEnsure ColourTrans 0.00 RMLoad System:Modules.Colours
  8. RMEnsure ColourTrans 0.00 Error You need the ColourTrans module
  9. |
  10. | now set up the global variables for PGPlot
  11. Set PGPLOT_DIR <Obey$Dir>
  12. Iconsprites <PGPLOT_DIR>.!Sprites
  13. |
  14. | use SetMacro to avoid the 30 character maximum file name length bug.
  15. |
  16. SetMacro PGPLOT_FONT <PGPLOT_DIR>.GRFont
  17. SetMacro PGPLOT_RGB <PGPLOT_DIR>.RGBTxt
  18. |
  19. | change (or add to) the following to suit your taste
  20. |
  21. |     default driver (Archi screen)
  22. Set PGPLOT_DEV /ARCV
  23. |     default background colour
  24. Set PGPLOT_BACKGROUND black
  25. Set PGPLOT_IDENT "Fortran Friends"
  26. |     PSDriver needs this
  27. Set PGPLOT_USER "Fortran Friends"
  28. |       the following define the Postscript dimensions
  29. |       they are inverted if you use /VPS or /VPCS
  30. Set PGPLOT_PS_WIDTH "7560"          | PostScript width (Portrait)
  31. Set PGPLOT_PS_HEIGHT "11190"        | Postscript height (Portrait)
  32. Set PGPLOT_ARC_WIDTH "800"          | Sprite width (pixels for /ARCF driver)
  33. Set PGPLOT_ARC_HEIGHT "600"         | Sprite height
  34. echo Global variables now set up for PGPlot
  35. Wimpslot -min 640k -max 640k
  36. |  set directory to one contining !Ortep then to where the Data is
  37. Dir <Ortep$Dir>
  38. Dir ^.Data
  39. Run <Ortep$Dir>.OrtepIII
  40. |           delete the scratch files used
  41. Wipe <Wimp$ScrapDir>.Ortep* ~C~V
  42.  
  43.